*>p 





0100 

0110 

0120 

0130 

0140 

0150 

0160 

0170 

0180 

0190 

0200 

0210 

0220 

0230 

0240 

0250 

0260 

0270 

0280 

0290 

0300 

0310 

0320 

0330 

0340 

0350 

0360 

0370 

0380 

0390 

,0400 

0410 

0420 

0430 

0440 

0450 

0460 

0470 

0480 


;* Demonstration 1 fuer Kommando $52 * 

• ***************#*#.***#**** 

4 

f 

DATBUF = $5000 
SECNUM = 1 


.OPT KO LIST 
.OPT OBJ 
*= $4000 


LDA #$31 f 

STA $0300 
LDA #1 f 

STA $0301 
LDA #$52 ; 

STA $0302 
LDA #$40 ; 

STA $0303 
LDA # <DATBUF 
STA $0304 
LDA # >DATBUF 
STA $0305 
LDA #7 ; 

STA $0306 
LDA #$80 ; 

STA $0308 
LDA #0 
STA $0309 
LDA # <SECNUM 
STA $030A 
LDA # >SECNUM 
STA $030B 
JSR $E459 ; 

BMI ERROR 
CLC 
RTS 

ERROR SEC 
RTS 


Bub ID 


Laufwerks Kummer = 1 
Kommando $52 
5tatus fuer Daten lesen 
l Adresse fuer Datenbuffer Low 
; Adresse fuer Datenbuffer High 
Wert fuer Timeout = 7 Sekunden 
128 Bytes (in SD+MD) schreiben 


; Sector Nummer Low Byte 
; Sector Nummer High Byte 
Einsprung der SIO-Routine im OS 






0460 RTS 

0470 ERROR SEC 
0480 RTS 





0100 

•»tf#******#**#**#*******###****#**##* ** * 

0110 

; * Demonstration 

2 fuer Kommando $50 * 

0120 

£#**#*■****«»*##*##*#***##**####**#*■*##♦# 

0130 

* 

I 



0140 

PRGBUF = 

$8000 


0150 

* 

f 



0160 

. OPT 

NO LIST 


0170 

. OPT 

‘ OBJ 


0180 

tt = 

$4000 


0190 

J 



0200 

LDA 

#$31 ; 

Bus ID 

0210 

STA 

$0300 


0220 

LDA 

#1 ; 

Laufwerks Nummer * 1 

0230 

STA 

$0301 


0240 

LDA 

#$50 t 

Kommando $50 Sector ohne Verify schreiben 

0250 

STA 

$0302 


0260 

LDA 

#$80 } 

Status fuer Daten schreiben 

0270 

STA 

$0303 


0280 

LDA 

# <DATBUF 

; Adresse fuer Datenbuffer Low 

0290 

STA 

$0304 


0300 

LDA 

# >DATBUF 

; Adresse fuer Datenbuffer High 

0310 

STA 

$0305 


0320 

LDA 

#7 ; 

Wert fuer Timeout = 7 Sekunden 

0330 

STA 

$0306 


0340 

LDA 

#$ao j 

128 Bytes ( in SD + MD > schreiben 

0350 

STA 

$0308 


0360 

LDA 

#0 


0370 

STA 

$0309 


0380 

LDA 

# <PRGBUF 

; Adresse fuer Programmbuffer Low 

0390 

STA 

$Ö30A 


0400 

LDA 

# >PRGBUF 

; Adresse fuer Programmbuffer High 

0410 

STA 

$030B 


0420 

JSR 

$E459 ; 

Einsprung der SIO-Routine im OS 

0430 

BMI 

ERROR 


0440 

CLC 



0450 

RTS 



0460 

ERROR SEC 


0470 

RTS 



0480 

? 



0490 

DATBUF 



0500 

LDA 

#$F A 


0510 

JMP 

$FFA5 ; 

HEXOUT 




Demonstration fuer Kommando $3F 
Uebertragungsrate fuer High-Speed ermitteln 


0100 
0110 
0120 
0130 
0140 

0150 DATBUF = $5000 

0160 t 


0170 

. DPT 

NO LIST 

0180 

. 0PT 

0B3 

0190 

# *= 

$4000 

0200 

* 

f 


0210 

LDA 

#$31 | 

0220 

STA 

$0300 

0230 

LDA 

#1 i 

0240 

STA 

$0301 

0250 

LDA 

#$3F ; 

0260 

STA 

$0302 ' 

0270 

LDA 

#$40 ; 

0280 

STA 

$0303 

0290 

LDA 

# <DATBUF 

0300 

STA 

$0304 

0310 

LDA 

# >DATBUF 

0320 

STA 

$0305 

0330 

LDA 

#7 ; 

0340 

STA 

$0306 

0350 

LDA 

#1 ; 

0360 

STA 

$0308 

0370 

LDA 

#0 

0380 

STA 

$0309 

0390 

JSR 

$E459 ; 

0400 

BMI 

ERROR 

0410 

CLC 


0420 

RTS 


0430 

ERROR SEC 

0440 

RTS 



Bus ID 

Laufwerks Nummer = 1 
Kommando $3F 
Status fuer Daten lesen 
• Adresse fuer Datenbuffer Low 
; Adresse fuer Datenbuffer High 
Wert fuer Timeout - 7 Sekunden 
1 Byte lesen 

Einsprung der SIO-Routine im OS 





0X00 f 

0110 ;* Demonstration fuer Kommando $44 * 

0120 j *' fr * 1 **'^^**'****-»***##**-*##^#**##-»-##*-^-*-» 

0130 ; 

0140 .OPT NO LIST 

0150 .OPT OBJ 

0160 *= $4000 

0170 ; 

0180 LDA #$31 ; Bus ID 

0190 STA $0300 

0200 LDA #1 ; Laufwerks Nummer a 1 

0210 STA $0301 

0220 LDA #$44 ; Kommando 944 

0230 STA $0302 

0240 LDA #0 ; Statue fuer keine Dal 

0250 STA $0303 

0260 LDA #7 ; Wert fuer Timeout = ' 

0270 STA $0306 

0280 LDA #920 j Bit 4 fuer Format ohi 

0290 STA $030A 

0300 JSR $E459 j Elnaprung der SIO-Roi 

0310 BMI ERROR 

0320 CLC 

0330 RTS 


.OPT NO LIST 
.OPT OBJ 
*= $4000 

LDA #$31 ] 

STA $0300 
LDA #1 ; 

STA $0301 
LDA #$44 ; 

STA $0302 
LDA #0 ; 

STA $0303 
LDA #7 ; 

STA $0306 
LDA #$20 ; 

STA $030A 
JSR $E459 i 
BMI ERROR 
CLC 
RTS 


Bus ID 


Laufwerks Nummer * 1 
Kommando 944 

Statue fuer keine Daten senden oder empfangen 
Wert fuer Timeout = 7 Sekunden 


; Bit 4 fuer Format ohne Verify 
t Elnaprung der SIÜ-Routine im OS 


0340 'ERROR SEC 
0350 RTS 


0100 ;»**»*********«*»*»#*»»•*»#*»»»*»*,»«• 
01IO f* Demonstration fuer Kommando $4B * 

0120 ;**+#*.******.*. 


0130 

1 




0140 

. 0PT NO LIST 



0150 

.OPT OBJ 



0160 

# 3E 

$4000 



0170 

* 

W 




OlßO 

LDA 

#$31 

4 

Bus ID 

0190 

STA 

$0300 



0200 

LDA 

#1 


Laufwerks Nummer = 1 

0210 

STA 

$0301 



0220 

LDA 

#$4B 


Kommando $4B 

0230 

STA 

$0302 



0240 

LDA 

#0 


Status fuer keine Daten senden oderempfangen 

0250 

STA 

$0303 


0260 

LDA 

#7 


Wert fuer Timeout = 7 Sekunden 

0270 

STA 

$0306 



0280 

LDA 

#3 


Bit 0+1 fuer Sector Read + Write Slow 

0290 

STA 

S030A 


0300 

JSR 

$E459 


Einsprung der SIO-Routine im OS 

0310 

BMI 

ERROR 



0320 

CLC 




0330 

RTS 




0340 

ERROR SEC 




0350 RTS 






0100 

0110 

0120 

0130 

0140 

0150 

0160 

0170 

oiao 

0190 

0200 

0210 

0220 

0230 

0240 

0250 

0260 

0270 

0280 

0290 

0300 

0310 

0320 

0330 

0340, 

0350* 

0360 

0370 

0380 

0390 

0400 

0410 


;*#********** # ***» #)Mf### * ### . ###<)( . ##)t ^ # 

;* Demonstration fuer Kommando $4C * 

;* Einsprungbefehl. "C" - Complete # 

;* muss selbst gesendet werden t * 

;***#***#***#.* ***n-#****** ## »* ###Jf » #### 

? 

G0ADR = SFF5A ; Einsprungadrease fuer "C" - Complete senden 
? 

.0PT NO LIST 
.0PT OBJ 
*= $4000 


LDA #$31 : Bus ID 

STA $0300 

LDA #1 j Laufwerks Nummer = 1 

STA $0301 

LDA #$4C ; Kommando $4C 

STA $0302 

' Status fuer keine Daten senden oder empfanaer 
STA $0303 es 

LDA * 7 » Wert fuer Timeout = 7 Sekunden 

STA $0306 

LDA # <GQADR ; Einsprungadresse Low Byte 
STA $030A 

LDA # >GÜADR ; Einsprungadresse High Byte 
STA $030B 

JSR $E459 ; Eineprung der SIO-Routine im OS 

BMI ERROR 
CLC 
RTS 

ERROR SEC 
RTS 


0100 

0110 

0120 

0130 

0140 

0150 

0160 

0170 

0180 

0190 

0200 

0210 

0220 

0230 

0240 

0250 

0260 

0270 

0280 

0290 

0300 

0310 

0320 

0330 

0340 

0350 

0360 

0370 

0380 

0390 

0400 

0410 


;* Demonstration fuer Kommando 94D * 

?* Einsprungbefehl. "C" - Complete vird * 

;* vom Laufwerk sofort zurueckgesendet * 

;*##*************»**»**** ####Jf## ^ ###)tj ^ 

9 

G0ADR « 9FF03 ; Einsprungadresse fuer "Drive Reset 1 

9 

.DPT NO LIST 
.0PT OBJ 
*= 94000 


LDA #931 , Bus ID 

STA 90300 

LDA #1 ; Laufwerks Nummer * 1 

STA 90301 

LDA #94D ; Kommando 94D 

STA 90302 

S?i *0303 ’ St,tUe fUer keine D “ ten *enden ° d er empfangen 

S0306 ’ Wert fUer Ti, " eOUt ' 7 Kunden 

LDA # <GQADR ; Einsprungadresse Low Byte 
STA 9Ö30A 

STA 9030ß ADR J Einsprun9adreBa ® High Byte 

Bhl ERROR '* E±nBprun 9 der SID-Routine im OS 

CLC 
RTS 

ERROR SEC 
RTS 





0100 

0110 

0120 

0130 

0140 

0150 

0160 

0170 

0180 

0190 

0200 

0210 

0220 

0230 

0240 

0250 

0260 

0270 

0280 

0290 

0300 

0310 

0320 

0330 

0340 

0350 

0360 

0370 

0380 

0390 

0400 

0410 

0420 

0430 

0440 


Demonstration 1 fuer Kommando $41 * 

* Kommando $54 Installieren * 

.0PT NO LIST 
.0PT OBJ 
* = $4000 

LDA #$31 
STA $0300 
LDA #1 
STA $0301 
LDA #$41 
STA $0302 
LDA #$60 


Bus ID 

Laufwerke Nummer =. i 
Kommando $41 

Status fuer Daten schreiben 


STA $0303 

STA $0304 MBUF '* AdreSfle fuer K°™mandobuffer Low 

g?J £o 3^ MBUF ' AdreSSe fuer K°*mandobuffer High 

; Wert fuer Timeout = 7 Sekunden 


LDA #7 
STA $0306 
LDA #3 
STA $0308 
LDA #0 
STA $0309 
JSR $E459 
BMI ERROR 
OLG 
RTS 

ERROR SEC 
RTS 

COMBUF .BYTE $54 ; Kommando $54 

.WORD $8000 ; Einsprung $8000 


3 Bytes schreiben 


Einsprung der SIO-Routine im OS 




0100 

0110 

0120 

0130 

0140 


**#**#***#***» # *****» # *, #WJti| . ###i(i#(ii##### 

* Demonetration 2 fuer Kommando $41 # 

* Kommando $3F Loeachen # 

***+»******»*****+»*++**+»+*„++„„****** 


0150 

.0PT NO LIST 

0160 

. 0PT OBJ 


0170 

# = 

$4000 


oiao j 




0190 

LDA 

#$31 

* 

f 

0200 

STA 

$0300 


0210 

LDA 

#1 

c 

f 

0220 

STA 

$0301 


0230 

LDA 

#$41 

? 

0240 

STA 

$0302 


0250 

LDA 

#$ao 

7 

0260 

STA 

$0303 


0270 

LDA 

# cCOMBUF 

0260 

STA 

$0304 


0290 

LDA 

# >CQM BUF 

0300 

STA 

$0305 


0310 

LDA 

#7 

7 

0320 

STA 

$0306 


0330 ■ 

LDA 

#3 

* 

0340 

STA 

$0306 


0350 

LDA 

#0 


0360 

STA 

$0309 


0370 

JSR 

$E459 

i 

0380 

BMI 

ERROR 


0390 

CLC 



■0400 

RTS 



0410 ERROR SEC 


0420 

RTS 




Bus ID 

Laufwerke Nummer = l 
Kommando $41 

Statue fuer Daten schreiben 
f Adresse fuer Kommandobuffer Low 
; Adresse fuer Kommandobuffer High 
Wert fuer Timeout = 7 Sekunden 
3 Bytes schreiben 

Einsprung der SIO-Routine im OS 


0430 C0MBUF .BYTE $3F 
0440 * WORD $00 


; Kommando S3F 

Kennung fuer Kommando loeechen 







0100 



0110 

;* Demonstration fuer Kommando 960 * 

0120 

;* 

Write Track' - Befehl * 

0130 


0140 

J 



0150 

TRKDAT = 

95000 ; 

Adresse der kompletten Trackdate 

oieo 

TRKLEN = 

90900 ; 

9900 SD, 9D00 KD, 91200 DD 

0170 

SECTOR = 

l ; 

Anfangssector eines Tracks 

oiao 

! 



0190 

. OPT 

NO LIST 


0200 

. OPT 

OBJ 


0210 

• = 

94000 


0220 

* 

9 



0230 

LDA 

#931 i 

Bus ID 

0240 

STA 

90300 


0250 

LDA 

#1 ; 

Laufwerks Nummer = 1 

0260 

STA 

90301 


0270 

LDA 

#960 ; 

Kommando 960 

0280 

STA 

90302 


0290 

LDA 

#960 ; 

Status fuer Daten senden 

0300 

STA 

90303 


0310 

LDA 

# <TRKDAT 

; Trackdaten Low Byte 

0320 

STA 

90304 


0330 

LDA 

# >TRKDAT 

; Trackdaten High Byte 

03$0 

STA 

90305 


0350 

LDA 

#7 ; 

Wert fuer Timeout = 8 Sekunden 

0360 

STA 

90306 


0370 

LDA 

# <TRKLEN 

; Tracklaenge Low Byte 

0380 

STA 

9030Ö 


0390 

LDA 

# >TRKLEN 

; Tracklaenge High Byte 

0400 

STA 

90309 


0410 

LDA 

# <SECT0R 


0420 

STA 

9Q30A 


0430 

LDA 

# >SECTOR 


0440 

STA 

9030B 


0450 

JSR 

9E459 ; 

Einsprung der SIO-Routine im OS 

0460 

BMI 

ERROR 


0470 

CLC 



04Ö0 

RTS 




0490 ERROR SEC 
0500 RTS 




sifjjün- 





, J.: 






.jfe 


0100 

0110 



0120 

; * 

'Read Trac 


0130 

* ****** 



0140 

4 

t 



0150 

TRKDAT 

= $5000 ; 


0160 

TRKLEN 

= $0900 } 


0170 

SECT0R 

= l ; 


0180 

4 

/ 



0190 

. 0PT NO LIST 


0200 

.0PT OBJ 


0210 

* ü 

$4000 


0220 

t 



0230 

LDA 

#$31 ; 


0240 

STA 

$0300 


0250 

LDA 

*1 f 


0260 

STA 

$0301 

C-. 

0270 

LDA 

#$62 , 


0280 

STA 

$0302 


0290 

LDA 

#$40 ; 


0300 

STA 

$0303 


0310 

LDA 

# <TRKDAT 


0320 

STA 

$0304 


0330 

" LDA 

# >TRKDAT 


0340 

STA 

$0305 


0350 

LDA 

#7 ; 


0360 

STA 

$0306 


0370 

LDA 

# <TRKLEN 


0380 

STA 

$0308 


0390 

LDA 

# >TRKLEN 


0400 

STA 

$0309 


0410 

LDA 

# <SECT0R 


0420 

STA 

$03QA 


0430 

LDA 

# >SECT0R 


0440 

STA 

$030B 


0450 

JSR 

SE459 f 


0460 

BMI 

ERROR 


0470 

CLC 



0480 

RTS 



- Befehl 


0490 ERROR SEC 
0500 RTS 


Adresse der kompletten Trackdaten 
$900 SD, $DQ0 MD, $1200 DD 
Anfangssector eines Tracks 


Bus ID 

Laufwerks Nummer = 1 
Kommando $62 
Status fuer Daten lesen 
; Trackdaten Low Byte 
; Trackdaten High Byte 
Wert fuer Timeout = 0 Sekunden 
; Tracklaenge Low Byte 
; Tracklaenge High Byte 


Einsprung der SIQ-Routine im ÜS 





0100 

* # * 



0110 

; * 

Lesen der SIO 

-Routine vom Laufwerk * 


0120 

* * * 

«•fr********»»*»»***»*-#**»»#***»*»»#**»» 


0130 

r 






0140 

ADR 

= 

$5000 

} 

Adresse fuer die SIO-Rout±ne 


0150 

j> 






0160 


, OPT 

NO LIST 




0170 


. OPT 

OBJ 




0180 


• = 

$4000 




0190 

f 






0200 


LDA 

#$31 


Bus ID 


0210 


STA 

$0300 




0220 


LDA 

#1 


Laufwerks Nummer = 1 


0230 


STA 

$0301 




0240 


LDA 

#$68 


Kommando $68 


0250 


STA 

$0302 




0260 


LDA 

#$40 


Status fuer Daten lesen 


0270 


STA 

$0303 




0280 


LDA 

#8 




0290 


STA 

$0304 

? 

Adresse fuer Laengenbyte Low 


0300 


STA 

$0306 

• 

r 

Wert fuer Timeout = 8 Sekunden 


0310 


LDA 

#3 




0320 


STA 

$0305 

4 

f 

Adresse fuer Laengenbyte High 


0330 


LDA 

#2 




034-0 


STA 

$0308 

4 

t 

2 Bytes lesen 


0350 


LDA 

#0 




0360 


STA 

$0309 




0370 


JSR 

$E459 

* 

9 

Einsprung der SIO-Routine im OS 


0380 


BMI 

ERROR 




0390 


INC 

$0302 

i 

Kommando $69 


0400 


LDA 

# <ADR 




0410 


STA 

$0304 

3 

Target Adresse der SIO-Routine Low 

0420 


STA 

$030A 

? 

Original Adresse der SIO-Routine 

Low 

0430 


LDA 

# >ADR 




0440 


STA 

$0305 

1 

Target Adresse der SIO-Routine High 

0450 


STA 

$Ü30B 

w 

Original Adresse der SIO-Routine 

High 

0460 


LDA 

#$40 




0470 


STA 

$0303 

1 

Status fuer Daten lesen 


0480 


JSR 

$E459 

J 

Einsprung der SIO-Routine im OS 


0490 


BMI 

ERROR 




0500 


CLC 





0510 


RTS 





0520 

ERROR SEC 




0530 


RTS 







ANHANG B 












NACHRÜSTEN DER SPEEDY N 

Die Nachrüstung der Trackanzeige und des Summers 
erfordet eine gute Lötpraxis und eine gute Erfahrung 
im Umgang mit Mikroelektronischen Schaltungen. Diese 
Erweiterung sollten also nur Diejenigen vornehmen, 
die schon des Öfteren Bauteile auf Platinen gelötet 
haben. Wir übernehmen keinerlei Garantie für eine 
durch fehlerhaften Einbau zerstörte SPEEDY- Platine 
oder Diskettenlaufwerks. 

Besorgen Sie sich bitte folgende Bauelemente; 

2 x 74 LS 74 mit passenden Sockeln 

2 x 74 LS 273 mit passeden Sockeln >* 

3 x 7-Segmentanzeige HA1077 oder D100PK oder 

FND 357 mit gern. Kathode 
D IN 4148 
T BC 517 
C 0, 1 uF 
RI 4, 7 k Ohm 
R2 47 Ohm 
R3 270 Ohm 

LS Miniaturlautsprecher 8 Ohm 
R Widerstandsarray 8 x 270 Ohm 

oder 16 Einzelwiderstände 270 Ohm 
Pfostenfeldstiftleisten 2 x 10 polig mit 
passendem Stecker. 

ca. 10cm Flachbandkabel 20 polig 
Lochrasterplatine 

Bei Beschaffungsschwierigkeiten helfen wir natürlich 
gerne weiter. 

Alle Bauteile werden laut BestÜckungsplan auf die 
SPEEDY- Grundplatine gelötet. Achten Sie hierbei auf 
die Richtung der IC's, der Diode und des Transistors. 
Die Widerstandsarrays können durch Einzelwiderstände 
ersetzt werden. 


ACHTUNG t ! t Die Platine ist doppelseitig Beschichtet 
und Durchkontaktier. Ein einmal eingelötetes Bauteil 
läßt sich nur sehr schwer wieder auslöten. 

Die Pinbelegung der 7-Segmentanzeigen erhalten Sie aus 
den Datenblättern der Hersteller oder durch Testen mit 
einem Ohmmeter. Löten Sie die drei Anzeigen 
nebeneinander auf ein kleines Stück Lochrasterplatine. 


Das eine Ende 
20 -pollgen Stecker 
ablaoliert und 
verbunden. 


dee Flachbandkabel wird an den 
angepreßt und das lese Ende wird 
mit den Siebensegment - Anzeigen 


Nachfolgende Liste soll Ihnen bei der Anschlußbelegung 
behilflich sein: 


Anschlußpunkt 

Anzeige 

Segment Bemerkung 

11 

II 

II 

II 

Jt 

tl 

31 


Jl 

w 

tl 

II 

II 

11 

11 

11 

tl 

II 

II 

11 



i 

2 

j 

links 


d Single Density 

2 

7 

links 


g Medium Density 

3 

4 

links 


a Double Density 

4 

3 



frei 

5 

(p 

mitte 


9 

6 


alle 


gern. Masse 

7 

8 

mitte 


e 

a 

7 

mitte 


f 

3 

- iO 

mitte 


c 

10 

4 

mitte 


d 

11 

42 

mitte 


a 

12 

4 i 

mitte 


b 

13 

4k 

rechts 


g 

14 

4 3 

alle 


gern. Masse 

15 

4L 

rechts 


e 

16 

4$ 

rechts 


f 

17 

4 8 

rechts 


c 

18 

47 

rechts 


d 

19 

20 

rechts 


a 

20 

4% 

rechts 


b 

Nach erfolgter 

Aufrüstung 

Ihre 

SPEEDY 1050 können Sie 

die Funkt ionsttlcht lgkeit 

mit 

Hilfe der SPEEDY- 

Systemdiskette 

< Display-Test) überprüfen. 





uh .... ii u ymmmmm - 1 
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